(esc-map, ctl-x-map): Define as functions.

diff --git a/lisp/emulation/mlsupport.el b/lisp/emulation/mlsupport.el
index 04c5f18396f03899e8ccbd59324fd4b436ec4343..c5091b70434e4071d31b86b1eacb8a09e245f4c2 100644 (file)
--- a/lisp/emulation/mlsupport.el
+++ b/lisp/emulation/mlsupport.el
@@ -51,6 +51,10 @@
 (defun define-keymap (name)
   (fset (intern name) (make-keymap)))
 
+;; Make it work to use ml-use-...-map on "esc" and such.
+(fset 'esc-map esc-map)
+(fset 'ctl-x-map ctl-x-map)
+
 (defun ml-use-local-map (name)
   (use-local-map (intern (concat name "-map"))))